clear 
  20 for A=0to 165;@(A)=0;next A
  30 for XY=20078to 20128step 2;%(XY)=0;next XY
  31 F=100;G=200
  34 print "COMPOUND INTEREST"
  36 S=2
  38 if S=2P=6000;goto 75
  60 .
  70 clear ;print "RUNNING";return 
  75 @(98)=2;@(99)=1;@(134)=1;print "LOAN AMOUNT";print ;gosub 3030
 100 CX=-32;Z=1;for B=Rto Sstep -1;if @(B)="0"if Zgoto 130
 109 if V=0print "$",;V=1
 110 Z=0
 120 TV=@(B)
 121 if (B=11)+(B=29)+(B=47)+(B=65)+(B=83)+(B=101)+(B=119)+(B=136)+(B=155)print ",",
 130 next B
 140 V=0;return 
 200 print ".",;for B=Tto Ustep -1;TV=@(B);next B;print ;V=0;return 
 500 if E<2N=7
 510 if E=2N=25
 520 if E=3N=61
 530 for I=1to B
 540 @(N+A)=@(165+J)
 550 A=A-1;J=J+1
 560 next I
 561 @(46)=1
 570 if E=2if (@(26))+(@(27))+(@(28))>0$div @(18),@(36),@(18)
 580 A=0;B=0;C=0;J=0;print ;return 
3030 CX=-30;CY=CY-8
3040 K=KP
3041 if K=31B=B-1;A=A-1;H=CX;TV=31;TV=13;CX=-6;CY=CY+8;goto 3040
3042 if K=36TV=K;goto 3040
3043 if K=37TV=K;goto 3040
3044 if S>0if K=13goto 3040
3045 if K=44TV=K;goto 3040
3050 if K=46C=1;TV=46;goto 3040
3060 if K=73E=1;gosub 500;print "input INTEREST RATE,THEN";print "    PRESS T";print ;CX=-20;goto 3040
3070 if K=84E=2;gosub 500;print "input YEARS,THEN";print "PRESS P";CX=-20;goto 3040
3080 if K=80E=3;gosub 500;gosub 60;goto P
3090 if K=67STOP
3100 TV=K
3110 @(165+B)=K
3120 B=B+1
3130 if C=1if E=0U=U+1;if U=2K=73;goto 3060
3140 if C=0A=A+1
3150 goto 3040
6000 $mul @(54),@(90),@(90)
6002 for Q=36to 53;@(Q)=0;next Q
6005 $+@(0),@(36),@(36)
6010 $mul @(0),@(18),@(144)
6015 $;@(0),@(144),@(0)
6020 $-@(54),@(126),@(54)
6030 if @(62)+@(63)+@(64)<145goto 6050
6040 goto 6010
6050 print "INTEREST+LOAN";R=17;S=8;gosub F;T=7;U=6;gosub G
6051 print 
6060 V=1;print "NUMBER OF PAYMENTS";R=107;S=98;gosub F;T=97;U=96;gosub G
6065 print 
6070 print "MONTHLY PAYMENTS"
6080 $div @(0),@(90),@(90);gosub F;T=97;U=96;gosub G
6090 print "INTEREST PAID"
6100 $-@(0),@(36),@(90);R=107;S=98;gosub F;T=97;U=96;gosub G
>